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COBSPOS_ERASE Position and erase 14-38-19 4 00:13:03 path Lieacaeetecba ahe-t 


14-Sep-1984 


1 MODULE COBSPOS_ERASE ( EA 3 "Position and erase’ 
; jbEnt = '1-003' ! File: COBPOSERA.B32 Edit: LGB1003 


BEGIN 


096 i peeenereeeeereeeeneeeeeeeeneeeeeeeeretreeeeeeeeeeeeeeeeeeneeeeneeeeeereneeee 
‘@ 
0008 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
0 '® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


'# ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 

ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* Taanerehntoe NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
~ CORPORA ibe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
t® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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lee 
: FACILITY: VAX-11 COBOL Support 


ABSTRACT: 
Used with ACCEPT and DISPLAY, this routine provides direct cursor 


pect sentee. relative cursor positioning, screen erasing, and 
ine erasing. 
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; ENVIRONMENT: User mode ~ AST reentrant 
i AUTHOR: P. Levesque, CREATION DATE: 27-Jan-1983 
i MODIFIED BY: 

i 1-001 - Original. PLL 27-Jan-1983 
i 

' 

i 

' 

' 
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1-002 - Put out sequence to make sure terminal is in VT100 or VT52 mode. 
Put = ie ge for erasing whole screen w/cursor positioning 
on a vt52. 
After a screen erase on a vt52, always call the cursor 
soretenrey routine again, whether direct or indirect. 

re code for COBS$$AB_PREV to handle Version 3 ACCEPT statement 

with ADVANCING and with NO ADVANCING. 
Created two qnery porate COBSPOS_ACCEPT and COBSPOS DISPLAY. 
Created COBSACC_TERM_TYPE for ACCEPT and left COBSTERM_TYPE for 


Open both SYSS$SINPUT and SYSSOUTPUT for ACCEPT to be able to 
write to terminal. SYSSINPUT is Read-only under VMS V4. 
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CORSPOS.ERASE Position and erase ybrBenct964 00:15:05 yAReIY BLiegrS2 ve. 0072, 


14-Sep-1 
5 38 ; 1! Added second parameter for COBSSOPEN_IN and coBssop N OUT 
; 1! Use COBPROLOG.REQ 3 } -JAN-1 38¢ 
: ° : a. 1-003 - Create A pane ag routine COBSPOS_ERASE. tee -FEB-1984 
: 62 0062 1 


-o 


K 16 
S_ERASE Position and eras 16-Sep-1984 00:13: AX-11 Bliss-32 V4.0-74 
z . 14 Sep 1982 00:18:98 : CICOBPOSERA.B 2:1 


00 


SPO 
3 Declarations -Sep- COBRTL.SR 

>; «6646 63 1 ZSBTTL ‘Declarations’ 
Pe re} i PROLOGUE FILE 
; e9 1: 
; 68 067 1 
3 9 9088 1 REQUIRE "RTLIN:COBPROLOG’ ; ! Switches, Psects, Include 
: 0 1 ‘ 1 ! fives 
. << os 1 $ 7} 
3 ie: 1587 1 ! LINKAGES: 
‘pee - 1588 1! 
; «6726 1589 1! NONE 
; gp 1590 1! 
; 1591 1 ! TABLE OF CONTENTS: 
; 1 3 1! 
; 1595 1 
; #79 1594 1 FORWARD ROUTINE 
; @& 1595 1 COBSPOS_ACCEPT : NOVALUE, ! Open for ACCEPT 
; w 1336 1 COBSPOS_DISPLAY : NOVALUE, ! Open for DISPLAY 
3 ag 1597 1 COBSPOS_ ERASE : NOVALUE, ! Place-holder routine 
3; § 1598 1 COBSSPOS_ERASE ; ! Position and erase 
> «84 1599 1 
3; @ 1600 1! 
>; 86 1601 1 ! INCLUDE FILES: 
; oT 1on6 1! 
; & 1605 1 
; 1604 1 REQUIRE 'RTLIN:COBLNK'; ! Define Linkages for Screen 
; 1679 1 ! routines 
; 1680 1 LITERAL 
3 4 1681 1 DISP = 0, ' Code for DISPLAY 
; F ey 1 DNA =1, ! Code for DISPLAY No Advancing 
; 94 16835 1 POS 2 ¢ ! Code for Positioning 
; & 1684 1 POS_DNA = 35, ! Code for Positioning No Adv 
3; & 1685 1 ACC_ADV = 4, ' Code for Accept (V3 
3; W 1686 1 ACC_DNA = 5 ; ! Code for Accept No Adv (V3) 
; #98 1687 1! 
; 99 1688 1 ! MACROS: 
: 100 1689 1! 
; 101 1690 1 MACRO 
; 108 m 1691 1 SOUTPUT_ESC_SEQ_BUF = 
; 0 ial 1696 1 '¢ 
: 104 ™ 1695 1 ! Output sequences. 
3; 105 M1694 1 = 
3 106 m 1695 1 BEGIN 
; 10 x 1696 1 RAB CRABSL_RBFJ = ESC_SEQ BUF [0); 
; 108 M1697 1 RAB CRABSW-RSZ) = MIN7(.COR_BUF_LEN, K_MAX_RMS_LEN); 
; 109 m 1698 1 WHILE $PUT (RAB = .RAB) EQL”RMSS_RSA DO SWAIT TRAB = .RAB); 
: 119 ° i 44 ' 4 NOT .RAB CRABSL_STSJ 
: N¢ m 1701 1 LIBSSTOP (COBS_ERRDURPOS, 1, .RAB + RABSC_BLN, 
> o11 ® 1708 1 -RAB CRABSL_STS], .RAB CRABSC_STVJ); 
3 («114 "17 1 CUR_BUF _LEN = 0; 
3 «115 " HAs 1 END; 
3 116 1705 1 q; ! end macro SOUTPUT_ESC_SEQ_BUF 
: 11 17 1 
; #118 17 1! 
3 «119 17 : 1 ! EQUATED SYMBOLS: 
: 120 17 1! 


16 
£ ERASE Position and erase 18-Sep-1984 9913703 AX-11 Bliss-32 V4.0-74 
3 Declarations 14-Sep-1 :10: COBRTL.SRCJCOBPOSERA.B52;1 
; 121 1710 1! NONE 
g § ¢ iy , : 
eS ay 1 ! FIELDS 
> 124 1715 1! 
A 17144 1! NONE 
3; $ 1715 1! 
, 4 1fi$ 7} 
; 128 1717 1°! OWN STORAGE 
; 129 ay 7! 
_ 1719 1 GLOBAL 
3s ta 1720 1 COBSTERM_TYPE : INITIAL (0), ! Terminal type for DISPLAY 
: ; é \? 1 : COBSACC_TERM_TYPE : INITIAL (0) ; ! Terminal type for ACCEPT 
3 : : Ve 5 ! RAB : REF SRAB_DECL ; ! RAB for output/input device 
55 1725 1 ! EXTERNAL REFERENCES: 
s ¥ 17 $ 1! 
3 3 17 1 
; 13 1728 1 EXTERNAL ROUTINE 
; 140 1729 1 COBSSSETUP_TERM_TYPE, ! Setup terminal type 
> «(141 1730 4 COBSSERASE_LINE_R2 : COBSSESC_R2_LNK, ! Get the seq to erase a Line 
3 re 1731 1 COBSSERASE PAGE _R2 : COBSSESC_R2_LNK, ! Get the seq to erase the screen 
: 14 17 ; 1 COBSSSET_CORSOR_REL, ! Get seq for relative cursor 
3 144 V3? 1 ! positioning 
3; «(145 17 1 COBSSERASE_WHOLE_PAGE_R2 : COBSSESC_R2_LNK, ! Get eee to erase screen w/out 
; 146 1735 1 ! changing cursor 
3; (147 17 1 COBSSERASE_WHOLE_LINE_R2 : COBSSESC_R2_LNK, ! Get seg to erase Line w/out 
; «148 ii 6% ! changing cursor 
> (149 1738 1 COBSSOPEN_IN ! Create unit for input 
; 150 1739 1 COBSSOPEN OUT, i Open unit for output 
; 13 oe : LIBSSTOP; ! Signal error 
3 138 Ho 1 EXTERNAL LITERAL ' Condition value symbols 
3: «154 1745 1 COBS_INVARG, ! Invalid argument 
gs 35 1744 1 COBS_ERRDURDIS, ' Error during DISPLAY 
; 156 1745 1 COBS_ERRDURACC, : Error during ACCEPT 
3; 157 1746 1 COBS_ERRDURPOS ; ! Error during Positioning 
> 158 1747 1 
s 139 1748 1 EXTERNAL 
; 160 1749 1 COBSSAL_WRITE_RAB : VECTOR, ' Address of RAB : 
3; 161 1750 1 COBSSAB_USPCODE : VECTOR C,BYTE), ! Prefix and Post Upspacing 
; 162 1751 1 COBS$AB_PREV : VECTOR C,BYTE) ; i History of Previous call 


coco 
Oc 


5 


erase to end of screen 


em me em em a ee a dd ed nd td 8 8 2 od 


4 = erase to end of Line 


Mm 16 ; 
FORSEOS ERASE Position and erase 1 =300- 138% 90:13:03 AX-11 Bliss-32 v4.0-74 
3 COBSPOS_ACCEPT = Position and erase for ACCEPT 14-Sep-1 210: COBRTL.SRCJCOBPOSERA.B52;1 
s 196 17 § 1 ZSBTTL ‘COBSPOS_ACCEPT = Position and erase for ACCEPT’ 
; 165 17 1 GLOBAL ROUTINE COBSPOS_ACCEPT ( 
: 198 1754 (1 UNIT : VECTOR C2 BYTE), ! unit for input 
; (16 1755 «(1 ERASE _FLAG, : type of erasing 
: 198 17 $ 1 LINE ' Line number 
; 1$ 17 1 COLUAN, ' column ~ Bt 
; 170 17 8 1 LINE_PLUS, ' number of Lines to advance 
: 171 17 1 COLUAN_PLUS ! number of cols to advance 
; 17 1760 1 ) : NOVALUE = ; 
s (U7 1761 1 
; (1746 1706 1 fee 
; 12? 120 1 : FUNCTIONAL DESCRIPTION: 
: 39 1768 This routine is used with ACCEPT and DISPLAY. Its ow ose is to 
; 178 1798 open UNIT for input if necessary, then call COBSSPOS_ERASE to 
3 4 1708 perform positioning and erasing. 
: 181 179? CALLING SEQUENCE: 
: 186 1770 
; 18 1771 ret_status.wic.v = COBSPOS_ERASE (UNIT.rbu.va, 
: «185 177 LINE.rlu.v, 
: «186 1774 COLUMN. rlu.v, 
3; 187 1775 LINE _PLUS.rlu.v, 
: «188 1778 COLUAN_PLUS.rlu.v) 
; «4189 177 
: 130 1778 FORMAL PARAMETERS: 
3 136 1780 UNIT. rbu.va Byte integer unit number Seaton et ee unit 
: 19 1781 from whic ote tng is to be read, followed 
: 194 178s by byse flag indicating whether a routine 
; 6195 178 should abort or return status on RMS$_EOF. 
; 196 1784 (This second byte is not used here) 
3; 197 1785 ERASE_FLAG.rl.v type of erasing to be done 
; 198 1786 0 = no erasin 
3; 199 178 erase whole screen 
: 200 17 erase whole Line 
: $03 1} 
3 08 1 
3 1 
3 5 ; 
: $09 : 
; 208 1 
; 209 1 
3 1 
3 1 
3 1 
: 1 
3 i 
$ 1 
s 1 
: 1 
3 1 
3 1 
: 1 


‘ 1 
' 
i 
i 
i 


791 LINE.rlu.v Line number to which cursor should be moved 
138 if zero, the current Line is retained 
79 COLUMN. rlu.v column number to which cursor should be moved 
794 if zero, the current column is retained 
795 LINE _PLUS.rlu.v number of Lines to advance with Line-feeds 
re COLUAN_PLUS.rlu.v number of columns to advance 

10 798 IMPLICIT INPUTS: 

11 799 

i ; = 

1 og IMPLICIT OUTPUTS: 

i$ NON: 

1 05 

18 "3 COMPLETION STATUS: 

20 08 SS$_NORMAL Normal successfric completion 


ee ————— 
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/COBSPOS_ERASE Position and erase 4 00:1 AX=-11 Bliss-32 V4. Page 
Reins COBSPOSACCEPT - Position and erase for ACCEPT “520-1984 99: 10; 83 COBRTL.SRC ReScOSPOSERA. 582: 31 ’ 
, 1 1 1! COBS_INVARG Invalid argument 
13 $56 9 | COBSTERRDURACC Error during ACCEPT 
i ge Wig 1 | SIDE EFFECTS: 
it § 1814 1: NONE 
: wis | 
BORA en 
: 231 181 
; § 1820 TERM_TYPE, ! Parameter to COBSPOS_ERASE 
: : 1 STATOS ; 
: 235 1 : 16 
; 1824 i Check to see if the unit has been opened. The unit will be associated 
3 1825 with either a COBSxxxx mame or a SYS$xxxx name. If not already open, 
: : $ call a routine to set up a RAB. 
: 240 1 : : 
3 ) i 4 IF .UNITCO] GTRU COBSK_UNIT_MAX 
; 45 i : LIBSSTOP (COBS_INVARG); 
> 245 1 16 
: 246 is ! Open SYSSINPUT for call to COBSSSETUP_TERM_TYPE to find out if we are 
; re \3 5 : _ dealing with a file or not. 
: 249 183 
: 39 1338 Fg, Seen TE Ie C.UNITCOJ] EQL 0 
; 1840 16 
; 58 Ht 9 a Second parameter signifies COBSSOPEN_IN called on behalf of VAX COBOL 
; 35 1848 COBSSOPEN_IN (.UNITCOJ, 0) ; 
; 37 18g RAB = .COBSSAL_WRITE_RAB C.UNITCOI) ; 
: 259 184 '¢ 
; 260 H 944 ! First determine Be terminal type and save it for later use. 
; 261 + ! Notice that COBSTERM_TYPE is set only once, on the first call. 
; 26 1850 ! aA descriptor for the resultant name and the name itself are stored 
3 re : 33 ! after the RAB. 
> 265 1 
3 r+] 1854 BEGIN ! find and store terminal type 
; 26 1855 LOCAL 
3 $8 : 23 NAM_DSC : REF BLOCK C,BYTE); ! name dsc 
; 4 i 28 NAM_DSC = .RAB + RABSC_BLN; ! point past RAB to name dsc 
i fe 1860 IF COBSACC_TERM_TYPE EOL 0 
: 276 1 § 4 IF NOT ( COBSSSETUP_TERM_TYPE (.NAM_DSC Posts POINTER. 
: 275 1 4 -NAM“DSC COSCSW"LENGTHI, 
: er 1 4 COBSACC_TERM_TYPE ) ) 
: a7 1865 3 THEN LIBSSTC? (COBS_ERRDURACC); 
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Position and erase for ACCEPT 1$-sep-1964 99: 13; 93 CbaRTLe $Red 


'¢ 

: ¥ OBSACC_TERM_TYPE is UNKNOWN, AF con assume we are Sootrng wt with 
: le, thérefore no need to 0 9° the positioning routine 

a it not dealing with a file call tOBSshos ERASE. 


THE en TERM_TYPE NEQ UNKNOWN 


-COBSACC_TERM_TYPE ; 


TERR TYP 
SAL WRITE ARAG "HY: “EQL 0 


.COBSs 
THEN 


SYSSINPUT is read-only in VMS V3B. 

There is not need to open SYsSINbut (.UNITCO] = 0) at this point, 
leave this for routine es CC_SRC. 

For VMS V3B you have to SCREATE i.e. SOPEN SYSSOUTPUT in order to 
write the et Se ene to the terminal. Use COBSSOPEN_OUT 

IN pec aves, we need the RHB (= COBS$AB_USPCODE) 
“(SYSSOUTPU Tis the second element in the 

SYS “TABLE table, nnnes LOBSSOPEN. OUT 

Make sure that the RAB is pointing to SYSSOUTPUT for the macro 
SOUTPUT_ESC_SEQ_BUF. 

Second parameter signifies COBESOPEN_OUT called on behalf of VAX COBOL 


COpssoren OUT (1 
. COBSSAL arte _has (1) ; 


COBSSPOS_ERASE ( .TERM_TYPE, .ERASE_FLAG, .LINE, .COLUMN, 
END “LINE_PLUS, .COLUMN_PLUS ) ; 


ss 
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End of COBSPOS_ACCEPT 


TITLE COBShOS . ERASE Position and erase 
[IDENT \1-003\~ 
-PSECT _COBSDATA,NOEXE, PIC.2 
00000000 00000 coBSTERM TYPE: : ‘ 
00000000 00004 COBSACC_TERM_TYP Bes 
LONG 
00008 RAB: “BLKB 4 
-EXTRN COBSSSETUP_TERM_TYPE 
*EXTRN COBSSERASE “LINER 
“EXTRN COBSSERASE PAGE _R 
SEXTRN COBSS$SET_CORSOR-REL 
-EXTRN COBSSERASE_WHOLE_PAGE_ § 
“EXTRN COBSSERASE WHOLE LINE R 
-EXTRN COBSSOPEN_IN, COBSSOPEN_OUT 
“EXTRN LIBSSTOP, COBS_INVARG 
“EXTRN COB$_ERROURDIS; COB$_ERRDURACC 


ee 
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| COBSPOS_ERASE Position and erase 16-Sep-1984 00:13: AX-11 Bliss-32 V4.0-74 
Bets COBSPOS_ACCEPT = Position and erase for ACCEPT 10-300-138¢ 99:15:93 COBRTL. SRC CoaPUSERA. 682; 


.EXTRN COBS_ERRDURPOS, COBSSAL_WRITE_RAB 

| “EXTRN COBS$SAB_USPCODE 

| “EXTRN COBS$AB~PREV 

| -PSECT _COBSCODE,NOWRT, SHR, PIC,2 

| .ENTRY COBSPOS ACCEPT, Save R2.R3.R4,R5,R6 
MOVAB OL aR 

MOVAB COBSSAL RITE RAB#4, RS 

MOVAB RAB, R 

MOVZBL UNIT, R2 

CMPB rT 


; BRSea 


Re, 

BLEQU 

000000006 PUSHL  #COBS_INVARG 
CALLS #1, LIBSSTOP 

FC AS 1$: VAL COBSSAL_WRITE_RABLR2I, R3 

TSTL. —-(R3) 
BNEG =. 28 
C =(SP) 


000000006 00 CALLS #2, COBSSOPEN_IN 
| (RS) 


COOoooooooooooooooooooooooooooooo 
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64 23: OVL ° 
50 64 00000044 ADDL3 #68, RAB, NAM_DSC 
FC Ist OBSACC_fERM_TYPE 
FC PUSHAB COBSACC_TERM_TYPE 
7E MOVZWL (NAM_DSC), <TSP) 
04 PUSHL 4 DS 
000000006 00 9 CALLS #3, COBSSSETUP_TERM_TYPE 
9 0 BLBS)SséiR 
000000006 &F PUSHL #COB$_ERRDURACC 
6 01 CALLS #1, LIBS$STOP 
0 FC AG 3$ MOVL OBSACC_TERM_TYPE, RO 
26 BEQL $ 
52 0 MOVL RO, TERM_TYPE 
65 TSTL  COBSSAL_QRITE_RAB+4 
OA BNEG 6 4$ 
43 01 00 MOV #1, -=(SP) 
000000006 0 0g CALLS #2, COBSSOPEN_OUT 
$4 6 4$: MOVL  COBS$AL_WRITE-RAB+4, RAB 
E 14 AC MOVG LINE_PLOS, -(SP) 
7E o¢ AC LINE, -(SP 


0000v CF 


OMG 9 NNG BAS 9 9 MOM MOWO- Go "So -9C Oo "9 OOooovo~ 
FOO 9F99 ODO NVNMOW0D 9 ODIO MIN OD SO SVUVIMBDOD— SPMramna 


SOoQoooooooooooooooooooooooooooooooooooooo 
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3; Routine Size: 150 bytes, Routine Base: _COBSCODE + 0000 
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$7008 COBSPOS.DISPLAY = Pos and erase for DISPLAY 363-1986 99:15:83 — EeSartu SreScospuseea.BS2:1 9 4) 

ls 14 1901 1 ZSBTTL ‘COBSPOS basPbs. - Pos one erase for DISPLAY’ : 
; 315 1 § 1 GLOBAL ROUTINE COBSPOS_DISPLAY ( 3 

ls 1 1 1 UNIT ! unit for output a 

is 31 1 1 ERASE FLAG, i type of erasing ; 
3 8 1905 1 LINE ' Line number 3 
3 «UBT 1 1 COLUMN, ' column number 3 
: 0 1907 1 LINE PLUS, ! number of Lines to advance 3 
3 1 1208 1 COLUAN_ PLUS ! number of cols to advance 3 
; § 1909 1 ) : NOVALUE = : 
3 Iaiy 1 3 
r 4 191 1 fee 3 
3 5 ba ! FUNCTIONAL DESCRIPTION: : 
3 § 1914 1! This routine is used with ACCEPT and DISPLAY. ts eve ose is to F 
3 8 1915 1! open UNIT for input if necessary, then call cos $POS_ERASE to : 
: 9 1318 : perform positioning and erasing. : 
3 1 1313 : : CALLING SEQUENCE: - : 
: 38 1920 7 ! ret_status.wic.v = COBSPOS_ERASE (UNIT.rlu.v, ; 
3 1921 1! ERASE_FLAG.rl.v, 3 
3 5 19 g 1! LINE.rlu.v, s 
3 19 1! COLUMN.rlu.v, : 
: $ 1924 1! LINE_PLUS.rlu.v, 3 
; 1925 1! COLUAN_PLUS. rlu.v) 3 
; 339 19 $ 1! 3 
3 ° + i ' FORMAL PARAMETERS: 3 
: ¢ 1929 1! UNIT. rlu.v unit number of output device 3 
3 1930 1! ERASE FLAG. rly type of erasing to be done 3 
: 4 1931 1! = no erasin é 
3 5 19 $ 1! = erase whole screen 3 
3 § 19 7% § = erase whole Line 3 
3 19 1! = erase to end of screen 3 
; 8 1935 1! 4 = erase to end of Line 3 
: 9 1936 1! LINE.rlu.v Line number to which cursor should be moved 3 
3 0 1937 1! f zero, the current line is retained 3 
3 1 1938 1! COLUMN. rlu.v column number to which cursor should be moved 3 
3 § 1939 1! zero, the current column is retained 3 
3 1940 1! LINE _PLUS.rlu.v number of Lines to advance with Line-feeds 3 
3 | 136) ' COLUAN_PLUS.rlu.v number of columns to advance : 
3 $ 1948 1 ! IMPLICIT INPUTS: 3 
; 1944 1! 3 
3 8 1945 1! NONE 3 
3 9 4 : 2 3 
3 1947 1 ! IMPLICIT OUTPUTS: $ 
3 1 1388 1! 3 
3 § 1949 1! NONE 3 
3 1950 1! 3 
3 1951 1 ! COMPLETION STATUS: g 
3 5 1326 . 3 
: 1955 1! $S$_NORMA poraet ve Succosetun completion 3 
: 13ee 1! COBS_ INV. VARG argume 3 
: 1322 ' ; COBS"ERRDURDIS _— ie STSPLAY 
: 1989 1 ' SIDE EFFECTS: 
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F 1 
and erase 16-Sep-1984 00:13: AxX-11 Bliss-32 V4.0-74 
DISPLAY = Pos and erase for. DISPLAY 1 ~3007 138% 90:13:93 YeOBRTL. AES cobpbsEna BS2:1 
! 
NONE 
ine 
BEGIN 
LOCAL an TYPE !p ter to COBSPOS_ERASE 
Certo ee ! Parameter to e 


14 

' Check to see if the unit has been seqnes. The unit will be associated 
! with either a COBSxxxx name or a SYS$xxxx name. If not already open, 
: call a routine to set up a RAB. 


IF .UNIT GTRU COBSK_UNIT_MAX 
LIBSSTOP (COBS_INVARG); 


IF .COBSSAL_WRITE_RAB C.UNIT] EQL 0 
THEN 


'¢ 
: Second parameter signifies COBSSOPEN_OUT called on behalf of VAX COBOL 


COBSSOPEN_OUT (.UNIT, 0); 
RAB = .COBSSAL_WRITE_RAB C.UNIT); 


te 
! First determine the terminal type and save it for later use. 

! Notice that COBSTERM_TYPE is set only once, on the first call. 

' A descriptor for the resultant name and the name itself are stored 
after the RAB. 


eel ! find and store terminal type 
NAM_DSC : REF BLOCK C,BYTE); 
NAM_DSC = .RAB + RABSC_BLN ; 


If .COBSTERM_TYPE EQL 0 
THEN 


' name dsc 
! point past RAB to name dsc 


IF NOT ( COBSSSETUP_TERM_TYPE (.NAM_DSC FDSC$A_POINTER], 
“NAM“DSC COSCSW-LENGTH], 
COBSTERM_TYPE )~) 


THEN LIBSSTOP (COBS_ERRDURDIS); 


'¢ 
! IF COBSACC_TERM_TYPE is UNKNOWN, we can assume we are dealing with 
! a file, thpretore no need to go through the positioning routine. 

: If not dealing with a file call COBSSPOS_ERASE. 


IF .COBSTERM_TYPE NEQ UNKNOWN 
THEN 


mo 


Ch 


3; Routine Size: 125 bytes, Routine Base: _COBSCODE + 0096 


1 
COBSPOS_ERASE Position and erase 1B-se -1984 00:13: AX-11 Bliss-32 V4.0-74 Page 11 
1808 COBSPOS_DISPLAY = Pos and erase for DISPLAY 1 ~3007 138% 90:13:93 COBRTL. SRCICOBPOSERA.B 2:1 9 a) 
* 8 1S 4 EGIN : 
. ~@ 16 4 TERM_TYPE = .COBSTERM_TYPE ; ‘ 
$4 17 & COBSSPOS_ERASE ( .TERM_TYPE, .ERASE_FLAG, .LINE, .COLUMN, ; 
> 431 18 LINE PLUS, .COLUMN_PLUS ) ; : 
3 : ¢ i 0 END ; i 
: 4 $f END : ! End of COBSPOS_DISPLAY ; 
003¢ 000 .ENTRY COBSPOS_DISPLAY, Save R2,R3,R4,R5 3 1902 : 
5 990000 06 00 9€ 000 MOVAB LIBSSTOP, R5 : ; 
4 00000000' EF 9E 0000 MOVAB COBSTERM.TYPE, R4 : : 
: 52 06 AC D 910 MOVL UNIT, R2 + 197% ; 
06 D1 00014 CMPL R2, &6 : ; 
18 6 17 BLEQU 1 : : 
000000006 8F DoD 00019 PUSHL  #COBS$_INVARG + 1976 ; 
; 1 FB OOOTF CALLS #1 LTBSSTOP : F 
000000006004¢ 5 0 2 1$: MOVAL cogs AL_WRITE_RABCR2], R3 : 1978 ; 
op 1 O2C BNEQ 2s 3 F 
D4 0 CLRL = = (SP) + 1983 ; 
DD 00 PUSHL ; : 
000000006 00 F 90 CALLS #2, COBSSOPEN_OUT ; : 
8 AG D 6 28: MOVL. (RS), + 1985 : 
50 8 A& 00000044 8F C1 0003D ADDL3 #68, RAB, NAM_DSC : 1998 ; 
64 B3 O46 TSTL COBSTERM_TYPE : 2000 ; 
1B 12 0004 BNEG 3 : ; 
54 pp O4A PUSHL 4 : 902 ; 
7E 60 3c 0004 MOVZWL (NAM_DSC), =(SP) + 200 : 
04 AO DD 0004F PUSHL 4 (NAM DSCS + 2002 : 
000000006 00 Q FB i CALLS ’ “ S$SETUP_TERM_TYPE ; : 
000000006 er DD PUSHL #COB$_ERRDURDIS + 2005 : 
5 1 F 06 CALLS #1, LYBSSTOP 3 3 
0 64 p 065 3$: Ovi COBSTERM_TYPE, RO : 2013 ; 
7E 14 ac 7D 096A MOV  LINE_PLUS, -(SP) ; 3 18 : 
7E o¢ AC 70 6 MOVO LINE, -(SP) + 2017 : 
8 AC 0D 9 PUSHL ERASE_FLAG : : 
0000v CF be PS b007 ChiTe don Ceasdpos ERASE : : 
04 0007C 4$: RET ’ : 2021 F 


Beos ERASE 


; Routine Size: 


Position and era -$ep-1984 00:13: Ax-11 
COBSPOS_ERASE - Position and erase 1$-e0-1 984 99518593 COBRTL. BR tic dgPusEn 
1 ZSBTTL *COBSPOS_ERASE Position and erase’ 
§ | GLOBAL ROUTIN cheseos. WERASE : NOVALUE = 
5 1 !44 
$ 1 FUNCTIONAL DESCRIPTION: 
§ 1 This routine is a place-holder routine needed by COBVECTOR.MAR. 
0 1 ! CALLING SEQUENCE: 
031 1: 
|= 
4 } | FORMAL PARAMETERS: 
1 ; NONE 
8 i ; IMPLICIT INPUTS: 
af NONE 
g i ; IMPLICIT OUTPUTS: 
41! NONE 
5 1! 
: | SIDE EFFECTS: 
048 1 NONE 
1! 
050 1 !-- 
833 , BEGIN 
$036 $ 0; 
2054 1 END ; 
0000 00000 -ENTRY COBSPOS_ERASE, Save nothing 
04 00002 RET 


3 bytes, Routine Base: _COBSCODE + 0113 


748 31 


SPOS_ERASE Position and erase 16-5 -$ep-1984 00:1 AX-11 B -32 v4. Page 13 
| {2808 COBSSPOS_ERASE Haat 99: 13; 3 fe COBRTL’S Snes conpHSERA BS2; 31 ° (6) ‘ 
; 47 5 1 ZSBTTL ‘COBSSPOS_ERASE' 3 
: 67 § 1 ROUTINE COBSSPOS_ERASE ( : 
; 4&7 1 TERM_TYPE } adit type H 
> 67 3 1 ERASE_FLAG, i type of of erasing : 
> 474 1 LINE,~ ' 3 
3; 475 0 1 COLUAN, } he pl wa umber : 
3 47 1 LINE PLUS, ! number of Lines to advance 3 
> 47 1 COLUAN_PLUS ! number of cols to advance 3 
i i}. : 
: 4 5 1 tee ; 
: ¢ 1 : FUNCTIONAL DESCRIPTION: : 
3 6 ¢ 3 1/ This routine is used with ACCEPT and DISPLAY. Its purpose is to F 
3 & 1! set the cursor to the specified Line and column, and to erase 3 
3 : 5 Bf : } a line or the whole screen if specified. : 
é 072 1 | CALLING SEQUENCE: 3 
3; 4 075 1! 3 
: 489 074 1! ret_status.wic.v = * COBSSPOS ERASE (TERM_TYPE.rlu.v, 3 
: 490 075 1! ERASE_FLAG. rl.v, 3 
3; 491 O76 1! LINE .flu.v, 3 
; 49 077 1! COLUMN.rlu.v, : 
3; 49 $78 1! LINE _PLUS.rlu.v, é 
3 ri 344 } COLUAN_PLUS.rlu.v) : 
; 496 081 | FORMAL PARAMETERS: 3 
: 698 0 : ii TERM_TYPE.rlu.v input or output terminal type : 
3: 499 0. 1! ERASE_FLAG.rl.v type of erasing to bed done 3 
; 500 085 1! 0 = no erasin | 
3; 501 0 1! 1 = erase whole screen 3 
3 208 0 1! $ = erase whole Line 3 
; 50 0 : 1! = erase to end of screen 3 
3 504 0 1! = erase to end of Line 3 
; 505 090 1! LINE.rlu.v Line maker to which cursor should be moved 3 
: 506 091 1! if zero, the current line is retained 3 
; 507 092 1! COLUMN. rlu.v column number to which cursor should be moved 3 
3 208 095 1! if zero, the current column is retained 3 
3 bee 1! LINE _PLUS.rlu.v number of Lines to advance with Line-feeds 3 
3 219 5 ! EOLURN. PLUS. rlu.v number of columns to advance : 
; ie 099 { IMPLICIT INPUTS: : 
; 14 099 ; NONE : 
; 16 101 i IMPLICIT OUTPUTS: ; 
; 18 § ; NONE 3 
; 9 105] ! COMPLETION STATUS: 
: 4 1 1 $S$_NORMAL Normal successful completion : 
: 1 1! COBS_INVARG Invalid argument i 
3 : 193 ' coBs~ ERRDURPOS Error during Positioning : 
: 526 111 1 § SIDE EFFECTS: i 


1 
PRHROSAmOSE Easter eatproe eet AE cc re a 


-_——- 


3 7 11 1! 3 
; 115 1! NONE $ 
: Hey : 
: 531 1 1 : 
; g 1 BEGIN : 
: 11 LOCAL ; 
: 5 ; ESC_SEQ_BUF : VECTOR (255, BYTE], } oer te store escape : 
3 ! uenc 3 
3 1 ; CUR_BUF_LEN : INITIAL (0), ! Earront length of ESC_SEQ_BUF 3 
3 1 ABS-CURSOR_FLAG : INITIAL (0), Flag used w/vt52 erase FH 
; 124 TEMP LINE_PLUS, ' Local for param LINE_PLUS : 
: re ! ; STATOS; ! Return status from calls ; 
; 4g 1 LITERAL ; 
: 54 1 $ K_MAX_RMS_LEN = $55. ! Max RMS cutout buffer size 3 
3 re ; 2 IRIT_VALUE 29; ! Initial SOBS$AB_PREV value : 
: 546 131 2 !4 : 
3; «(54 1 § ' If COBSSAB_PREV sare a LINEFEED is necessary, perform the Lf now, 3 
; 548 1 ' then set COBS$AB_PREV to POS_DNA to signify that no further Lf need be performed 3 
3: 549 1 ! in either COBSDISPLAY or COBSACCEPT. 3 
; 550 135 ! Move parameter LINE_PLUS to local TEMP_LINE_PLUS in case it will have to 3 
3 $3¢ ; : be incremented. : 
> 55 1 : ; 
3 $38 1 § TEMP_LINE_PLUS = LINE PLUS ; : 
: 386 re HF 9g CCOSSAB PREV c ] €0L DISP OR .COBSSAB_PREV CO] EQL ACC_ADV : 
: 55 14 1+ 3 
3 559 168 : Echo Linefeed for advancing via TEMP_LINE_PLUS. : 
: 560 145 IF .LINE EQL 0 : 
; 561 198 3 
: 266 2 IF .TEMP_LINE_PLUS NEQ 0 : 
> 564 129 TEMP_LINE_PLUS = .TEMP_LINE_PLUS ¢ 1 ; 
: 565 150 ELSE 3 
: r4] ; 1 TEMP_LINE_PLUS = 1 ; : 
: 568 1 : ‘+ : 
; 569 154 ' f COBSSAB_PREV is in its initial state do no edvenc tng and leave — ; 
3 20 ! 5 t in the Tnitial state if no positioning was requested. : 
: 57 133 if (.COBSSAB_PREV (0) EQL INIT_VALUE) F 
: 7 158 AND LIN EQL AND .COLUMN EQL é 
3 74 159 AND - TEMP_LINE_PLUS EQL AND .COLUMN_PLUS EQL ) é 
3 75 169 THEN é 
3 2 1 gx gg Oe tene PREY CO] = INIT_VALUE : 
: 378 168 COBSSAB_PREV (0) = POS_DNA ; ; 
: 165 COBS$AB_USPCODE £0 = 0; ! turn off prefix carriage control F 
: 1 : COBSSAB_USPCODE (1) = 0; ! turn off postfix carriage control 3 
5 ( PY 
3 168 '¢ 3 
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K 
S_ERASE Position and erase 16-Sep-1984 00:13: AX-11 Bliss-32 V4.0-74 Page 15 
4988 - COBSSPOS. ERASE 12-80-1382 99:13:83 COBRTL. RCICOBPOSERA.B 2:1 . (6) 
3 1g ‘ Put cursor positioning sequence in buffer. The relative routine 
3 5 \f : will do direct positioning if possible. 
: 17 
: 17 STATUS = COBSSSET_CURSOR_REL (.TERM_TYPE, ABS (.LINE) 
; 589 174 ABS (7COLUMN), ABS (.TEMP_LINE bus), 
: 175 ABS (.COLUMN_PLUS), ESC_SEQ_BUF [0), 
; 591 178 CUR By LEN); 
; NOT . U L J ; 
9 17 IF (NOT .STATUS) THEN LIBSSTOP (COB ERRDURPOS) 
: 32 138 14 
3 39 1 ! The relative cursor posi stoning royy ine may have been able to directly 
3 +] 1 ! position the cursor. This is significant only on a vt52 with whole 
;s 539 1 ¢ ! screen erasing. 
: 398 ise 5 
; 600 185 IF .LINE NEQ 0 AND 
; 601 1 : -COLUMN NEQ 0 
3 $08 1 THEN 
; 60 1 : ABS_CURSOR_FLAG = 1; 
: $08 1 1+ 
; 606 191 ! It's possible for the buffer to be full already, particularly if 
3; 607 136 ! relative cursor positioning was requested. Check for that now 
3: 608 19 ' to make sure that an erase sequence would fit. (This also avoids 
; 609 138 ! splitting an escape sequence between two S$PUTs.) 
ae He gS 
3 oi¢ 199 If .CUR_BUF_LEN GEQ (K_MAX_RMS_LEN = 10) 
3; 614 199 SOUTPUT_ESC_SEQ_BUF ; 
: gi § 1 1+ 
; 617 § ! The set cursor sequence, if needed, is now in ESC_SEQ_BUF. Append 
: a8 i in the erase sequence, if one is requested. 
; 420 05 
3; 621 Be IF .ERASE_FLAG NEQ 0 
: © § THEN 
3; 6 BEGIN 
: 4 CASE .ERASE_FLAG FROM 1 TO 4 OF 
; 625 10 SET 
; $ 11 (1): ! Erase whole screen 
3 \¢ 4 BEGIN 
; ¢ 15 4 '¢ 
; 6 14 4 ' Kludge for VT52. If we erase the whole page, we will 
3; 6 15 4 ! Lose our cursor position. So put out the cursor sequence 
3 é 1 1 ? ; again to restore it. 
3 6 § 18 4 IF .TERM_TYPE EQL VTS2 
: 6 1 4 THEN 
: 635 BEGIN 
: ° Hogg, OS.CURSOR_PLIG NEQ 0 
: 6 4 ° BEGIN ' abs cursor, erase whole screen 
; 6 4 STATUS = COBSSERASE_WHOLE_PAGE_R2 (. fERM_TYPE 
3 640 5 6 ESC_SEQ_Buf (0), 
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i 
SPOS_ERASE Position and erase 18-56 -1984 00:13: AX-11 Bliss-32 V4.0-74 p 1 

et 4 COBSEPOS ERASE 1 =300-1 38% 90:13:93 YONSRTL SRESCOMPUSERA. 62:1 =e (6S 
; 641 CUR_BUF_LEN); 

3 eG § COBSSSET_CURSOR_REL (.TERM_TYPE, ABS (CLINE 

; 64 ABS (ZCOLUMN), ABS (.TEMP_LINE PLUS), 
3 644 ABS (.COLUMN_PLUS), ESC_SEQ_BUF [0], 

: 6465 CUR_BUF _LEN); 

; oe END 

; 64 § ELSE 

; 648 ? BEGIN ' rel cursor, erase to end 

; 649 4 STATUS = COBSSERASE_PAGE_R2 (.TERM_TYPE, ESC_SEQ_BUF (0), 

3 630 5 CUR_BOF _LEN); 

; 651 END; 

3 ¢ ¢ END 

; 6 4 ELSE 

; 654 4 STATUS = COBSSERASE_WHOLE_PAGE_R2 (.TERM_TYPE, ESC_SEQ_BUF [0], 
: 639 40 ¢ dine CUR BUF _LEN) ; 

: $26 ¢§ 2: : ! Erase whole Line 

; 658 4 STATUS = COBSSERASE_WHOLE_LINE_R2 (. TERM TYPE, ESC_SEQ_BuUF (OJ, 

: #24 rt: CUR_BOF_LEN); 

: 661 rt 3): ! Erase from cursor to end of screen 
: O96 & STATUS = COBSSERASE_PAGE_R2 (.TERM TYPE, ESC_SEQ_BUF (0J, 

: oer +8 CUR_BOF_LEN); 

; 665 50 (4): ! Erase from cursor to end of Line 
é 666 2) STATUS = COBSSERASE_LINE_R2 (.TERM TYPE, ESC_SEQ_BuUF (0), 

; 66 ; CUR_BOF_LEN); 

a. i i 

: 670 55 IF NOT .STATUS 

i $7) 2$ THEN LIBSSTOP (COBS_ERRDURPOS); 

; or 38 END; 

; re 20 te 

F 676 eg ESC_SEQ_BUF now contains everything. Put it out to the terminal. 

: 678 6 ¢ 

3; 679 64 IF .CUR_BUF_LEN EQL 0 ! nothing to output 

3; 680 65 THEN 

3 1 $8 RETURN (SS$_NORMAL); 

; 68 8 SOUTPUT_ESC_SEQ_BUF ; ! do RMS $PUT 

; oe 26 RETURN (SS$_NORMAL); 

; rey, 72 END; ! End of routine COBSSPOS_ERASE 

eEXTRN SYSSPUT, SYSSWAIT 
OFFC 00000 COBSSPOS_ERASE: 
WORD v ne R3,R4,R5,R6,R7,RB,RI,R10,R11 3; 2056 


TR ae ee : 


. 
‘ono ERASE CoasePos erase —— FRRBSES 93:15:83 eM Okt egcae Nee ee ks. 


| 
| SE FFOO ce oF 17 MOVAB 256(SP), SP 
’ D 1c CLRL  CUR_BUF CEN 
0 14 H ti i ae ‘fe cme “tthe LINE_PLUS 
24 000000006 6 5 4 MOVZBL SSB , RT 
B BEQL 
04 1 CMPB Rl. ry 
10 BNEQ $ 
OC AC. D 1$: TSTL NE 
Bg PTL TEMP_LINE_PLUS 
4 ° 9 BEQL § 
} D B INCL  TEMP_LINE_PLUS 
50 1 ) 4 $ SCvL , TEMP_LINE_PLUS 
09 i! B? 4 $f: CMPB M3 
1¢ 12 0004 BNEQ a’ 
0c AC D 004 TSTL LINE 
7 1 O4A BNEQ © 4$ 
10 AC D 4C TSTL COLUMN 
12 1 Oat BNEG  4$ 
50 D 51 TSTL  TEMP_LINE_PLUS 
0E 1 0033 BNEO i 
18 AC D5 0005 TSTL | COLUMN_PLUS 
9 1 058 BNEO 6 4$ 
000000006 00 3 70 OUSA ROVE #9, COBSSAB_PREV 
000000006 00 3 90 00063 4$ MOVB COBSS$AB_PREV 
000000006 00 B4 006A S$ CLRW COBSSAB _USPCODE 
E BD 00 PUSHL SP 
08 AE 9F 0007 PUSHAB €SC_SEQ BUF 
57 A 00 07 MOVL § COLOMN_PLUS, R7 
1 079 BGEO é 
57 CE 00078 MNEGL 7, R7 
7 DD OOO7E 6$ PUSHL R 
56 Q 00 0 MOVL § TEMP_LINE_PLUS, R6 
18 00 BGEQ 486 7$ 
56 6 cE 0 MNEGL 6, R6 
6 DD 00088 7S: PUSHL R 
55 10 A 00 A MOVL LUMN, RS 
1 BGEO 
55 CE MNEGL . RS 
5 DD 00093 8$ PUSHL 
54 0c AC p MOVL LINE. R4 
BGEG 
54 4 cE 00098 MNEGL R4, R4 
4 Op 9$: PUSHL 
53 04 A v0 MOY Ca TYPE, R3 
000000006 Q FB QOOA6 CALLS COBSSSET _CURSOR_REL 
Q D MOVL RO 
0 E BLBS erATS 4 
A 0D PUSHL R10 
68 1 &F B CALLS #1, LIBSSTOP 
0c ac b 108:  =TSTL NE 
0 BB BEQL 5 
10 AC 05 000BD TSTL COLUMN 
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140 


2145 
2147 
2149 


151 
157 


2158 
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SPOS_ERASE Position and erase -$ep-1984 00:13: AX-11 Bliss-32 V4.0-74 
(0885 COBSS$POS_ERASE 127800-1382 90:13:93 OBBRTL SREICOBPUSERA. B42: 
2 ; 06 eg Govt 1» ABS_CURSOR_FLAG 
000000F 5 HE D4 C3 118: cMPL FUR_BUF LEN, #245 
28 Rt 04 ¢? BP sf NOVAB eae BUF, 40(RO) 
sooner ee 
y on BP RREE Bit iets 
22 AO 1 B80 O00E 138 MOVW  § R1, 34(RO) 
90000006 00 FPP ROtsA 158: Ua Me 
BOOT B SOR y 0 of Fs cHPL RO, 355084 
$9 DD OOOFC PUSHL RAB 
000000006 00 01 FB rE CALLS Hi SYSSWAIT 
50 Gh UL ERIS acs, OS. oe 
OE 08 Ad eB 100 ~=~—~*é@BML{BS (RO) 15$ 
7E 08 AO 7D 001 mova (RO), =(SP) 
oe ae} PUSHAB G6(RO) 
A 0D 0011 PUSHL R10 
68 05 FB 00119 CALLS #5, LIBSSTOP 
6— 04 O011C 15$:  CLRL  CUR_BUF LEN 
08 aC D8 Ole 168: ist ERASE _FLAG 
oose 31 5 3 BRW 26$ 
93 or 08 AC CF 00126 178 CASEL ERASE FLAG, #1, #3 
006C 0036 005A 0008 0128 18$ WORD 3-1 $.- 
$-18$.- 
; $-18$ 
02 3 D1 91 319$: CMPL 5 # 
2 0 1 Pere ies CURSOR_FLAG 
2 13A BEQL 3" . 
2 6— 9E 0013C¢ MOVAB fuR_BUF_LEN, R 
i 04 AF 9 136 MOVE) ESC=s Q"BUF. R 
000000006 0 if 146 toy COBSSERASE WHOLE _PAGE_R2 
” E BD OOT4E ih wo 
ooh BF So Orta FURIRP.G3CCHEOAIYN: ag ap, 
000000006 00 oF 8 8 CALLS a7 COBSSSET CURSOR_REL 
( on fF SE bole, “oo | ROWaR ESC~SEcBUF Rf 
0 1 MOVL R3,7RO™ 
000000006 : " i JsB COBSSERASE_PAGE_R2 
; E 3 173 218:  MOVAB CUR_BUF_LEN, R? 
06 A 1 MOVAB ESC~SE “BUF. R 
0 3 p 17A MOVL R 
000000006 170 JSB COBSSERASE_WHOLE_PAGE_R2 


2 
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(6) 


315 


2198 


2206 


2209 


2218 
2221 
2225 


2229 


35% 


2239 


: 
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COBSPOS_ERASE 


3; Routine Size: 


688 
689 


Name 
~COBSDATA 


Position and erase 
COBSSPOS_ERASE 


28 
000000F F 

22 
000000006 
000182DA 


000000006 


522 bytes, Routine 
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Bytes 


2 
16-5e -1984 00:13: AX-11 Bliss-32 V4.0-74 Page 19) 
1 ~300 138% 90:13:93 COBRTL SRETCOSPUSERA B82: 1 9° 6) 
He: 1 001 BRB 24$ ; 
: E 9€ 00185 228:  MOVAB CUR_BUF_LEN, R? t 2243 
04 AF ; 1 MOVAB ESC SE 0_BUF R : 
0 p 18¢ MOVL R ; 
000000006 6 16 18F Js8 GOBSSERASE_WHOLE_LINE_R2 : 
2 6E 3e 1 ; 23$ MOVAB CUR_BUF_LEN, R2 + 2251 
1 04 AF : 19A MOVAB ESC_SEQ_BUF, R : 
0 DO 001 c MOVL R3,-R ; 
000000006 1 1A JSB COBSSERASE_LINE_R2 : 
58 D 1A7 ses: MOVL RO, STATUS : 
05 E8 OO1AA 25$:  BLBS STATUS, + 2255 
A DD 001AD PUSHL R10 + 2256 
68 01 FB OO1AF CALLS #1, LIBSSTOP : 
oF DS 00182 26$:  +=*TSTL CUR_BUF_LEN + 2264 
13 00184 BEQL 1$ : 
50 69 00 0186 MOVL RAB, RO + 2266 
AO 04 AE 3 01B MOVAB €ESC.SEQ_BUF, 40(RO) : 
51 6 D O1BE MOVL CUR=BUE LEN, R1 : 
aF 1 01 001C CMPL =soaR'1, "#255 : 
4 15 001¢8 BLEG = aa7$ ; 
51 FF F 9A OOICA MOVZBL #255, R1 é 
AO 1 60 ice 378: MOVW  R1, $4(RO) : 
9 DD 00102 28$: PUSHL RAB : 
00 1 FB 00104 CALLS #1, SYS$PUT ; 
8F 0 D1 O18 CMPL = RO, #99034 ; 
0B 12 OO1E BNEQ 29% : 
69 DD OO1E4 PUSHL RAB ; 
00 01 Fe 0166 CALLS #1, SYSSWAIT F 
E3 11 OO1ED BRB 28$ : 
50 69 DO OO1EF 298:  MOVL RAB, RO : 
OE 08 Ao ES 001F2 BLBS BRO), 30$ F 
E 08 AO 7D 001F6 ova (RO), =(SP) : 
44 AO OF OOTFA PUSHAB 68(ROS ; 
g1 DD OO1FD PUSHL #1 F 
A DD OO1FF PUSHL R10 ; 
68 05 FB 00201 CALLS #5, LIBSSTOP ; 
6E D4 00204 308: CLRL CUR_BUF_LEN ; 
50 01 20 0206 31$:  MOVL #1,°R + 2270 
4 00209 RET : 2ev2 
Base: _COBSCODE + 0116 
! End of module COBSPOS_ERASE 
PSECT SUMMARY 
Attributes 
12 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
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COBSSPOS_ERASE 14-Sep-1984 COBRTL.SRC COBPOSERA. yf 231 (6) 
; _COBSCODE 800 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


a -ee Symbols -<------ Pages Processing 
File Total ioaded Percent Mapped Time 
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; COMMAND QUALIFIERS 
. PLISS/CHECR OCP IELD SMUT EAL GPT INI ZED /HOTRACE/L 1591. 1551 CORPOSERA/ORI=OBJS 1 COBPOSERA MSRC$: COBPOSERA/UPDATE=(ENH$: COBPOSERA 


; Size: 800 cod + 12 data bytes 
oe un 7 


; 084 

; Lexemes/CPU-Min: 27104 
: pee | Used: 187 pages 
; Compilation Complete 
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DIG 
CON 
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